Programmers’ 
Workshop 


Strategy games take the main 
stage this month, as Wilf Hey 
explains how to program your PC 
to make the ‘perfect move’ in his 
game, NIMBLE, which is included 
on this issue’s SuperDisk. 


Send your queries to 
Wilfs Programmers’ Workshop 
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uring the last 
year many have 
reeled with 
horror at the 
scale of cur- 
rency fluctua- 
tions; | can’t 
help but smile, reminded of an inci- 
dent of long ago. Conventional wis- 
dom of those days was to keep 
programmers in the back room, far 
away from reality. Only systems ana- 
lysts were allowed to investigate a 
problem and define a solution; they 
would assign a project to a program- 
mer, specifying every contingency. 
At a large stock brokerage a pro- 
grammer was assigned the task of 
writing a program that would allow 
for conversion between Canadian 
dollars and Spanish pesetas, and print 
out pages of tabled data. He looked 
at the specification and went to see 
the analyst: ‘What if the Canadian 
dollar is re-pegged at less than eighty 
percent of the U.S. rate, the peseta 


rises more than thirty percent and 
the buy/sell spread exceeds ten pese- 
tas? This program won’t allow for 
enough decimal places.’ Bill, the ana- 
lyst laughed, and said it could never 
happen. We had to restrain Winston, 
the programmer, who could not bear 
his 'cybernetic reputation’ to be sul- 
lied by a program with an ignored 
condition. Finally we were able to 
convince him that his station in life 
meant that he would have to bear 
this particular indignity. Eventually he 
resigned himself to his fate, and got 
down to do the job the way Bill had 
demanded — we thought. 

A few years later, after both the 
analyst and programmer had moved 
on to greener pastures, a printer in 
the main computer room burst into 
life in the middle of the night, ejecting 
yards of paper with a single sentence 
printed on each page: ‘This condition 
cannot possibly happen — so says Bill 
Parker, whose home telephone num- 
ber is... 


Logical operations 

Load Basic (either GW-Basic or QBasic will 
do) and then type the following command in 
direct mode: 


? 4 and 5 


The result (4) may surprise you: what does 
it mean? The operator AND is a Boolean 
operator which can be used in the same way 
as the arithmetical operators, such as plus and 
minus, although it obviously produces a dif- 
ferent result. Other Boolean operators that 
can be used include OR, XOR, NOT, EQV 
and IMP. 

Programmers are used to arithmetical oper- 
ators, but many avoid the logical (or Boolean, 
after logician George Boole) operators. This 
is unfortunate because they are useful and not 
at all difficult. The major project this month — 
the program NIMBLE, on the SuperDisk — 
makes extensive use of XOR. 

Boolean logic is, in fact, fundamental to the 
way the computer’s central processor works. 
No digital computer actually understands the 
rules of arithmetic. Instead, circuitry consist- 
ing of AND,OR, XOR and NOT functions 
(called logic gates) simulate arithmetic. Next 
month we will actually design circuitry using 
a simple cellular automaton, and see that the 
XOR operator itself does most of the work 
you require for carrying out binary addition — 
everything but carry (which AND will do 
quite nicely). 

AND, OR and XOR work not on a whole 
number but on individual bits (binary digits). 
If we are using integers (which are actually 16 
bit binary numbers inside the computer) the 
result of the statement X AND Y is another 
16-bit number. But what really happens is 
that each of the 16 bits of X is matched 
against the corresponding bit of Y, and the 
result of the AND function is calculated for 
each pair of bits. Where a 1 matches a 1 the 
resultant bit is also a 1, otherwise the result is 
a zero. If we look at our example above, 4 
AND 5, in binary, the result will be a little 
easier to understand: 


100 AND 
101 


100 (RESULT) 


So, from right to left: 0 is matched against 1 
producing 0; 0 is matched against 0 produc- 
ing 0; and 1 is matched against 1 producing 1. 

An easy way to understand how AND 
operates is to think of 1 signifying a true state- 
ment and 0 a false statement. We are used to 
handling this logic in everyday language: 
“Dogs bark’ is true, and ‘Pigs fly’ is false; 
when we join a true statement and a false 
statement by AND, we know the new sen- 
tence is false: “Dogs bark and pigs fly’ is 
obviously not true. 

With OR, only one of the statements has to 
be true for the result to be true — in other 
words only one of the two bits being com- 
pared needs to be a | to produce a result of 1. 
So 4 OR 5, produces a result of 5. XOR, 
standing for eXclusive OR, means one OR 
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LOGICAL CHALLENGE 


Consider this: if you have a pair of bits — call them A and B — there are exactly four per- 
mutations you can have: both A and B are zero; or both are one; or A is zero while B is 
one; or A is one while B is zero. If you have a function (or even a rat’s nest of functions) 
that takes A and B as input, it will be dealing with four different possibilities. The table that 
describes the single outcome of this circuit will be of the form: 


Of course, each of C, D, E and F will be either a zero or one. Since there are exactly six- 
teen permutations for four values being zero or one, there is a strong suggestion that there 
are exactly sixteen effective circuits — no matter how many AND, OR, XOR and NOT 
functions are bolted together. If a circuit takes two binary inputs and produces a single 
binary output, it must be one of |6 possible variations. 

Do you agree, or do you calculate differentlyy AND, OR, XOR, EQV and IMP are five 
circuits: where are the other || (by my calculation)? Assuming | am correct and that there 
are exactly |6 Boolean relationships between two binary items, can you find the equivalent 
operations as grammatical phrases in English? What does AND/OR mean? What about 
EITHER...OR and NEITHER...NOR? How about IF AND ONLY IF? Write to me with your 
own thoughts, experiments and programs in this direction; there will be prizes for the best 


submissions. 


the other, but not both. XOR will result in a 0 
bit only when both inputs are the same in a 
particular position. So 4 XOR 5 = 1. I'll leave 
you to try out some of the other Boolean oper- 
ators yourselves. 

Reader Paul Grosse has been working with 
me on a cellular automaton with an interest- 
ing life cycle: the inhabitants of this particular 
world act like electrons in a wire. It so hap- 
pens that it is quite easy to model AND, OR 
and these other operators by electrical circuit- 
ry. So for next month we are preparing a pro- 
gram that allows you to set up AND, OR and 
NOT circuits — and a number of other devices 
— by cellular automaton rules (rather like 
those found in the Game of Life). With this 
working model we will be investigating logi- 
cal functions further, and see new program- 
ming uses for them. 


Nimble 

This month I want to 
consider strategy type 
programs and how to 

code them. I’ve 


included a game ‘is ines oe 
called NIMBLE on this issue’s 


SuperDisk, and here I’m going to discuss the 
techniques behind it. We’re not going to anal- 
yse the code line by line, but I will look at 
some of the significant segments. I suggest 


NIMBLE is a programming project in Basic 
that requires plenty of programming 
ingenuity - both in operation and in logic. 
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you examine the rest of the program yourself 
to see how it all fits together. 

NIMBLE consists of a long track made up 
of squares, leading in one direction toward a 
terminus — an extra cell just beyond the 
squares. On several of the squares there is a 
counter, allocated randomly. One counter is 
red, while all the rest are blue. 

When two people play this game they take 
turns moving a single counter, until one of 
them moves the red counter into the terminus, 
thereby winning the game. On your turn, you 
can move any one counter nearer (or into) the 
terminus: it can move any number of squares 
nearer — but it can’t jump the queue going past 
another counter. No square can hold more 
than one counter at a time. 

In this game there is a way of playing per- 
fectly, so that if the other player ever makes a 


P| nesans you can press your advantage and 
es assure yourself of a win (see The Winning 
On th 


@ Strategy opposite). In any game you pro- 


duce yourself, you may not be able to deter- 
mine a strategy that guarantees a perfect 
move. However, you could incorporate the 
fairly simple ‘best move’ framework shown 
here into a game of your own. 

As hinted in the game title, NIMBLE is 
actually a disguised form of N/M. In the tradi- 
tional game of NIM there are several piles of 
beans; each player in turn may take any num- 
ber of beans from any one pile — including the 
whole pile if desired. The winner is the player 
who takes the last bean. 

The surprising way of winning this 
involves using one of the logical functions, 
XOR. To win you need to make a move that 
leaves the piles so that the XOR ‘sum’ of the 
number of beans in each pile is zero. Any- 
thing your opponent does after this will leave 
this ‘sum’ non-zero, and from there you can 
make another ‘perfect’ move. With a little bit 
of additional detail, NIMBLE works in a sim- 
ilar way. It’s not piles of beans we are count- 
ing — its the squares between pairs of 
counters, starting with the pair most distant 
from the terminus. 


«x 


Consider first of all what happens when the \ 
red counter is the one nearest the terminus: | 


the best action — whoever’s turn it is — would 
be to move the counter all the way into the 
terminus and win; obviously you don’t want 
to let your opponent face that situation, so you 
want to keep one blue counter nearer the ter- 
minus than the red counter; in fact another 
way to state the goal is ‘to make sure you 
don’t move the last blue counter before the 
red one into the terminus’. 


Making a strategy 

NIMBLE presents several challenges — not 
the least of which is mapping an array (DIM) 
against the path which snakes back and forth 
around the screen. This is accomplished in the 
code below: it relies on the fact that for a 
group of 15 squares numbered from left to 
right, there is, just below it, a group of 15 
squares numbered from right to left. 

This pattern is repeated every set of 32 
cells. The array IPATH has pairs of entries: 
the first number of each of these pairs is the 
X-coordinate of the pixel in the top left corner 
of a particular square; the second is the Y- 
coordinate of the same pixel. With this infor- 
mation, the location of each square on the 
path is clear. 


1410 FOR I = 1 T0 15 


1420 FOR J = 0 TO 3 

1430 ICBLL' = T+ 32. * J 

1440 IPATH(ICELL, 1) = 28 * I + 83 
1450 IPATH(ICELL, 2) = 18 + 84 * J 
1460 IPATH (ICELE: +16, 1), = 531 - 
BB FeL 

1470 IPATH(ICELL + 16, 2) = 60 + 84 
* J 

1480 NEXT 

1490 NEXT 

1500 FOR ICELL = 16 TO 112 STEP 32 
1510 IPATH(ICELL, 1) = 503 

1520 IPATH(ICELL, 2) = 21 * ICELL / 
3 

1530 NEXT 


1540 FOR ICELL = 32 TO 128 STEP 32 
1550 IPATH(ICELL, 1) = 111 
CT 


During the analysis phase the computer 
must scan through the path, locating each 
counter. As explained, there are simple rules 
by which the program can determine the best 
move to make. 

Four different conditions present them- 
selves to the program when it is the comput- 
er’s turn to move: (1) the human operator may 
have just won; (2) the computer may have an 
immediate clear win available; (3) the posi- 
tion is a stable one — that is the XOR sum is 
zero — and the computer has no best move; (4) 
the position is an unstable one, so the comput- 
er can make a stabilising move, and guarantee 
that it will eventually win. 

It is relatively easy to check for the first two 
conditions, but it takes more work to calculate 
stability or instability, since the calculation 
depends on whether or not there is exactly 
one blue counter nearer the terminus than the 
red counter is. A quick peek through the 
whole path, taking note of even a few vari- 
ables as you go, will help you distinguish the 
four conditions. 
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There are two slightly different rules you have to consider when 
you are analysing a particular configuration of counters; the first 
(which usually occurs early in the game) is when there are at least 
two blue counters nearer the terminus than the red counter is: 


|. Starting with the counters furthest from the terminus, record 
the number of empty squares between the first pair of counters; 
then calculate the number between the next pair, and so on (note 
each counter will belong to only one pair — so if there are six coun- 
ters, there are three pairs). 


2. If there is an odd number of counters, the last number to 
record is one more than the number of squares between the inner- 
most counter and the terminus: if it is right up against the terminus 
(but not yet in it) then record the number as ‘one’. 


For example the numbers to record in the following situation are 
3,2 and 3: 


OOO 


The count of blank squares is slightly different when there is 
exactly one blue counter to the left of the red: in that case you alter 
the second rule so that if there is an odd number of counters, the 
last number to record is the same as the number of squares 
between the innermost counter and the terminus. In the following 


In the middle 
of a NIM 
game: the 
XOR sum of 
12, 7 and 21 
is 30; to 
guarantee 
winning, the 
next player 
must take 10 
beans from 
the third pile, 
leaving piles 
of 12, 7 and 
Il (which 
together 
have an XOR 


UNSTABLE 


12 = 01100 12 = 
7 00111 7 = 


21 = 10101 11 
XOR sum = 11110 


x 
i=] 
P=) 
® 
e 
3 
u 


TAKE 10 


et a 


sum of zero). 


Once you have recorded them, you ‘sum’ them using the XOR 
function. For example, 3 XOR 2 XOR 3 produces 2. A change in the 
first case above to make this ‘sum’ zero would be to move the red 
counter inward two cells (making the numbers 3, 0 and 3 — which 
combine to produce 0). Once you have made a move that sets the 
XOR sum to zero, your opponent cannot help but upset that status 
again, allowing you to inch closer and closer (but always safely) to 
the goal. 

In this project the computer offers the human opponent the first 
move, giving them an opportunity, in most instances, of gaining the 
advantage. Then the computer analyses the situation and makes its 


example, the numbers are now 3, 2 and 2. 


By the way, counts can be zero. 


The segment of code, below, calls the sub- 
routine at line 10030; this gives the coordi- 
nates for the current square being examined, 
whose number (labelled 1 to 127 for each of 
the 127 squares) is in the variable ISR. Here 
we use it for its secondary purpose — to report 
in ISRCIRCLE the colour of the counter in 
cell ISR; a value of 7 (white) means there is 
no counter in the square, 1 means blue and 4 
means red. 


Alternating values 
IPARITY is used to alternate between two 
values: 0 when there is an even number of 
counters, and | when there is an odd number. 
If there is an odd number of counters you will 
have further checking to determine the last 
value to use in the XOR calculation. Note that 
IACT is incremented for every counter, but it 
is cleared when a red counter is found. This 
means that when the whole path has been 
checked, IACT will reflect the number of 
blue counters nearer to the terminus than the 
ted one; this, along with IPARITY, deter- 
mines the rule that will be used for the last 
value (see line 2500). 


2420 FOR I = 1 TO 26: ILOCS(I, 1) = 
O: NEXT 

2430 Es 0: > RED) = Oy TACT. 250% 
IPARITY = 0 

2440 FOR ICELL = 127 TO 1 STEP -1 
2450 ISR = ICELL: GOSUB 10030: ‘get 
coordinates 

2460 IF ISRCIRCLE <> 7 THEN I = I + 
1: ILOCS(I, 1) = ICELL: IACT = IACT + 
BY 

2470 IF ISRCIRCLE <> 7 THEN IPARTITY 


= (IPARITY + 1) MOD 2 
2480 IF ISRCIRCLE = 4 THEN IRED = 


own moves, 


There is no magic about XOR providing the solution to NIM and 
related games: it is simply the way of determining whether you are, 
at the end of your turn, leaving the count in a ‘stable’ state: many 


counting games boil down to NIM. 


ICELL: IACT = 0 
2490 NEXT 
2500 IF IACT > 1 AND IPARITY = 1 


THEN ILOCS(I + 1, 1) = -1 


Another array (IDIFFS) is required to cal- 
culate the distances between pairs of coun- 
ters. The ILOCS array needs 26 entries, 
because there are 26 counters on the board 
initially, but IDIFFS needs only 13. I have 
provided two values for each entry in IDIFFS, 
so it is defined as DIM IDIFFS(13,2). The 
first value will contain the calculated distance 
between the pair of counters, and the second 
will eventually contain the distance to which 
the first should be reduced in order to give a 
stable configuration. 

If that second value is impossible, I put — 1 
in its place to mark the fact that it is of no 
help. After this code, all we have to do is ran- 
domly pick one of the positive second values 
in IDIFFS, translate this into an actual move 
of a counter on the screen, and go back to let 
the poor human attempt to redeem the mess. 
If the program does its work correctly, it 
should be unbeatable — with one exception: if 
the human operator knows the winning 
method, and also manages to set up a stable 
configuration on his first move, then he can 
eventually win. 


2590 INIMSUM = 0 

2600 FOR I = 1 TO 13 

2610 IDIFFS(I, 1) = ILOCS(I + I-11, 
1) 7 EEOOS Gi dy Saeed 


2620 IF IDIFFS(I, 1) < 0 THEN 
IDIFFS(I, 1) = 0 


2630 INIMSUM = INIMSUM XOR IDIFFS(I, 
1) 


2640 NEXT 


TKEKKKKKK KKK KKKKK 


2650 


2660 * Calculate needed moves for 
stability 


2670 ICOUNT = 0 
2680 FOR I = 1 T0 13 


2690 IDIFFS(I, 2) = IDIFFS(I, 1) XOR 
INIMSUM 

2700 IF IDIFFS(I, 2) > IDIFFS(I, 1) 
THEN IDIFFS(I, 2) = -1 


2710 IF IDIFFS(I, 2) <> -1 THEN 
ICOUNT = ICOUNT + 1 


2720 NEXT. 


In most strategy games, you want to pro- 
vide different levels of difficulty of play, 
making things easier to win for beginners. 
One way of doing this is to set up a ‘mistake 
factor’. You could use a variable such as 
IMISTAKE and set it to a value of 35. In the 
code where a move is selected, you then insert 
code to get a random number between 1 and 
100. For example... 


ITEST = RND * 100 + 1 
IF ITEST > IMISTAKE THEN .. 


...will branch (passing the IF) 65 percent of 
the time, giving you the opportunity to make 
a small random (and likely wrong) move 35 
percent of the time — giving the human a fair 
chance to grab the initiative, and maybe win. 
Try this, and experiment with different values 
of IMISTAKE. By the way, in NIMBLE, you 
may like to note that in the lower right-hand 
corer of the screen, the program displays a 
tiny smiley face when it has locked on to the 
winning combination. If you manage to do it 
first, the little face displayed is wide-eyed and 
open-mouthed. O 
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Communicators 


A Complete Range of Products to Meet Your Communications Needs 


REMOTE @NIROL 


ReachOut allows you to 
take control of and remotely 
operate a PC as if you were 
right there. You can run 
applications in Windows or 
DOS, edit documents, 
update spreadsheets, assist 
a co-worker, or simply 
monitor the remote PC. 


ReachOut also includes a 
complete set of general 
communications functions, 
allowing you to connect to 
public mail and _ bulletin 
board services, and to 
access minicomputers and 
mainframes. 


ReachOut Features 
Windows and DOS support 
Background file transfer 
Password security 
Automatic virus checking 
Directory security 

LAN version available 

UK modem support 
Remote mouse 


The MultiTech MT1432 


THE NORTON 
ERE 


Host and Remote 


Remote Computing Any Wey You Need it 


pcANYWHERE for DOS 
offers reliable, fast and 
flexible PC-to-PC remote 
computing via a serial or 
modem connection. It gives 
you full control over all 
functions on the distant 
host PC, including remote 
control of both DOS and 
Windows applications. 


pcANYWHERE for DOS also 


includes full-featured 
general communications to 
allow connections to 


CompuServe, a mainframe, 
your E-mail box or a wide 
range of other hosts. 


Norton pcANYWHERE 
for DOS Features 
Windows and DOS support 
Background file transfer 
Password security 

LAN version available 

UK modem support 
Remote mouse 

Automated procedures 


just one of the new 


MultiModem II range, which combine ease-of-use with 
the latest in data communications technology. These 
desktop modems consume less power and space than 
their predecessors, yet are more powerful performers. 
They provide the ultimate in quality, performance and 
value. Includes MultiExpress fax software. Also available 
is the MT932 at £425 (RRP £599). 


MultiTech MT1432 
Features 

300-14, 400 bps 

MNP levels 2-5 

V.42 error correction 
V.42bis compression 
Group 3 Fax support 
EIA Class 2 Fax interface 
"AT" command set 
BABT approved 

Two year warranty 


T0494 866365 


Access 
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pcANYWHERE for Windows 
offers you all the features of 
pcANYWHERE for DOS - 
without leaving Windows! 


Support for serial, modem, 
NetBIOS and Novell 
connections is included as 
standard, allowing you to 
take remote control of any 
PC, anywhere - DOS or 
Windows, standalone’ or 
networked. 


And it offers full Windows 
functionality, making file 
transfers easy with simple 
"drag-and-drop" technology. 


Norton pcANYWHERE 

for Windows Features 
Windows and DOS support 
Full Windows interface 
Includes LAN support 

For Windows 3.0 or 3.1 
Compatible with DOS version 
General communications 
UK modem support 


Teleport 16550 

Features 

High-speed serial card 
Eliminates data loss 

Ideal for V.32bis modems 
Dual serial ports 
NS16550AEN chips installed 
COM1 to COM4 configurable 
IRQ2 to IRQS selectable 
ISA/EISA halfcard 


Telesystems Lid 


3 WYCOMBE ROAD, PRESTWOOD, BUCKS. HP16 OND. 
Tel: 0494 866365 Fax: 0494 866050 BBS: 0494 891903 


WILDCAT! is already well- 
known as the easiest to use 
bulletin board software 
available. Now, with 
support for Remote Imaging 
Protocol (RIP), WILDCAT! 
can provide high resolution 
graphics and mouse control 
to dial-in callers. 


Using QmodemPro v1.5 or 
any other communications 
software that supports the 
RIP terminal type, callers 
can now _ select BBS 
commands by clicking on 
selection buttons or screen 
prompts. 


WILDCAT! v3.9 Features 
Bullet-proof security 
Automatic UK modem set-up 
Electronic mail 

Up to 1,000 conferences 

Up to 1,000 file areas 
CD-ROM support 

DESQview aware 

Optional full-screen editor 


‘QmodemPro is a must for all 
WILDCAT! and other BBS 
callers, offering a full suite 
of terminal emulations, 
transfer protocols and 
electronic mail management 
in one easy-to-use package. 


As well as providing dial-out 
and host capabilities, 
QmodemPro can _ retrieve 
E-mail from CompuServe 
and bulletin board systems. 
It even includes a mail 
reader to allow replies to be 
composed off-line and sent 
back to the originating 
system automatically. 


v15 Features 
Pull-down menu interface 
Automated dialling directory 
INT14, NACS/NASI support 
Ability to send Faxes 
Mouse support - 
Automatic UK modem set-up 
Powerful script language 
RIP terminal support 


When you’re on the move, you need the same high 
performance and features in your portable modem as 
you’ve come to expect at your desk. Now you can get a 


pocket modem with the 


power and versatility of the 


full-size MultiTech modems. The MultiTech MT1432p is a 
fully-featured, pocket-size modem that is designed for use 


with laptop and 


notebook 


computers. Includes 


MultiExpress fax software and carry case. 


nell §=«MultiTech MT1432u 


CONMIPUTER 


Reviewers’ Choice 
June 1992 
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Features 

300-14,400 bps 

MNP levels 2-5 

V.42 error correction 
V.42bis compression 
Group 3 Fax support 

EIA Class 2 Fax interface 
"AT" command set 

BABT approved 

Two year warranty 
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All products mentioned are trademarks of their 
respective companies. Prices quoted do not 
include delivery or VAT. Trade and OEM 
enquiries welcome. 


